home *** CD-ROM | disk | FTP | other *** search
/ Loadstar - Compleat Bible / oldtest1.d81 / compleat ot (.txt) < prev    next >
Commodore BASIC  |  2022-08-28  |  5KB  |  131 lines

  1. 10 ifmtthen100
  2. 15 poke56,32:clr
  3. 35 dv=peek(186):ifdv<8thendv=8
  4. 36 sys57812"font",dv,0:poke780,0:poke781,0:poke782,32:sys65493
  5. 37 sys57812"bible 3000",dv,0:poke780,0:poke781,0:poke782,48:sys65493
  6. 38 sys57812"dtext 2800",dv,0:poke780,0:poke781,0:poke782,40:sys65493
  7. 40 poke53272,24:mt=12288:dtext=10240:dimfiles$(10),d%(7)
  8. 45 sysmt+9,8192,2,105:sysmt+9,8192,3,95:poke53272,24
  9. 50 fori=1to3000:next:poke53374,0:poke53366,0:poke53375,0
  10. 55 sysmt+201,95,105,4,10,14,1,14,7,6,1,0,0
  11. 60 sys10240,"books",dv,80*256:sysmt+36,80*256:wb=peek(20):sysmt+54:bl=f%
  12. 65 sysmt+15,"bnames",dv,107*256:sysmt+36,107*256:sysmt+54:bn=f%
  13. 75 bb=0:bc=1:bv=1:lb=-1
  14. 80 poke650,128:shade=mt+96:frame=mt+6:center=mt+78:box=mt+3:at=center-3
  15. 85 x=0:fori=8to29:ifi<>14thenclose2:open2,i,2:close2:ifst=0thend%(x)=i:x=x+1
  16. 90 next:fori=0tox:ifd%(i)=dvthena=i
  17. 95 next:nd=x:i=d%(0):d%(a)=i:d%(0)=dv:dx=0:poke186,dv
  18. 100 t$="[212]he [195]ompleat [207]ld [212]estament"
  19. 105 a$(1)="[207]pen a [194]ible [194]ook           ([207])"
  20. 120 a$(2)="[211]earch [194]ible [212]ext           ([211])
  21. 135 a$(3)[178]"(NULL)rogram str$ocumentation       (str$)"
  22. 137 a$(4)[178]"chr$uide (NULL)o str$isk lenontents      (len)"
  23. 140 h$[178]" osdc"
  24. 145 [158]mt[170]198,t$,4,a$(1),a$(2),a$(3),a$(4),h$
  25. 150 [145]f%[141]300,180,20000,6000
  26. 160 [137]100
  27. 180 f$[178]"o.whole search":[137]2300
  28. 300 [158]mt[170]36,80[172]256:[158]shade,9,9[170]wb,7,20
  29. 305 [158]mt[170]42,10,10[170]wb,6,19,1,5,1,13,bb,65,0:book%[178]i%:[139]lb[178]i%[167]330
  30. 310 ww$[178]w$:[158]mt[170]84,w$:f$[178]w$:t[178]0
  31. 315 [141]1000:[139]f%[178][171]1[176][197](a$)[167][139]t[179]nd[167][141]2100:[137]315
  32. 320 [139]f%[178][171]1[167]e$[178]"error bnf":[141]2200:[142]
  33. 325 [158]mt[170]48,0:[158]mt[170]27,bl:[158]mt[170]30,ww$,bo%,1:[158]dt,w$,d%(dx),84[172]256:hs[178]0:lh$[178]w$
  34. 330 [158]mt[170]207,84[172]256:eh[178]f%[171]1
  35. 335 [158]frame,1,39,1,16,13:[158]box,2,38,2,2,160,13
  36. 340 [158]box,2,38,3,3,160,3
  37. 341 [158]mt[170]30,"(NULL)eturn (NULL)o (NULL)ain (NULL)enu",0,0
  38. 345 [153]"print";:[158]center,2,"(NULL)ick atnn valntry (NULL)oint right$n (NULL)he peekook"
  39. 350 [158]mt[170]42,2,38,4,15,1,3,1,7,0,eh,0:[139]f%[178]0[167][142]
  40. 355 [139]f%[179][177]1[167]380
  41. 360 [158]box,2,37,22,22,32,0:[158]at,2,22,"waitopenlenhapter:(NULL)erse (cc:vv) "
  42. 365 [129]i[178]0[164]2:[151]631[170]i,[198]("cmd"):[130]:[151]198,3
  43. 370 [158]mt[170]51,1,7,7,"1:1":[139]w$[178]""[167][142]
  44. 375 [137]385
  45. 380 hs[178]f%:[158]mt[170]36,84[172]256:[158]mt[170]33,hs[172]2[170]1
  46. 385 verse[178][197](w$):v$[178]w$:[141]3000:f$[178]w$[170]"???-???":[139]lb[178]bo%[167]400
  47. 390 [141]1000:[139]f%[179]0[167][142]
  48. 395 files[178]f%:[158]mt[170]48,1:[129]i[178]0[164]files:[158]mt[170]33,i:fi$(i)[178]w$:[130]:[158]mt[170]48,0
  49. 400 i[178]0
  50. 405 w$[178]fi$(i):[139][200](w$,3)[178]"job"[167]w$[178]":"[170]w$
  51. 410 [139][197]([202](w$,5,3))[179][178]verse[175][197]([202](w$,9,3))[177][178]verse[167]425
  52. 415 [139]i[179]files[167]i[178]i[170]1:[137]405
  53. 420 i[178]0:w$[178]fi$(i)
  54. 425 [139][197](v$)[177][197]([202](w$,9,3))[167]v$[178]"1:1":[137]400
  55. 430 [139]cl$[179][177]w$[167]f$[178]w$:[158]dt,f$,d%(dx),7[172]4096:cl$[178]f$:lb[178]book%
  56. 435 [158]mt[170]36,7[172]4096:en[178]f%
  57. 440 [141]2000
  58. 445 [158]mt[170]210,v$,0,en:sp[178]f%:[139]sp[179]0[167]sp[178]0
  59. 450 [158]mt[170]42,1,38,3,18,1,15,15,7,sp,en[171]1,1
  60. 455 [141]700:[137]330
  61. 700 t$[178]"(NULL) (NULL) (NULL) right$ (NULL) (NULL) (NULL)"
  62. 705 a$(1)[178]"peekack to left$ighlight (NULL)enu    (asc-1)"
  63. 710 a$(2)[178]"valxport (NULL)elected (NULL)cripture  (x)"
  64. 715 a$(3)[178]"(NULL)earch lenurrent (NULL)ext        ((NULL))
  65. 720 a$(4)="[195]ontinue [211]earch            (s)
  66. 730 a$(5)[178]"(NULL)rint (NULL)elected (NULL)ext        ((NULL))
  67. 740 h$=" [133]x[211]sp"
  68. 745 sysmt+198,t$,5,a$(1),a$(2),a$(3),a$(4),a$(5),h$
  69. 750 iff%=1thenreturn
  70. 755 onf%gosub765,765,855,865,760:goto745
  71. 760 ed=4:goto770
  72. 765 ed=dv
  73. 770 poke199,0:sysmt+213,0,en-1:a=f%:sysbox,1,38,21,23,32,0
  74. 775 iff%<0thena$="[206]o [212]ext [211]elected!":gosub5020:sysmt+36,80*256:poke198,0:return
  75. 780 ifed=4thena$=chr$(13):goto810
  76. 785 sysbox,1,38,21,23,32,0:sysat,2,22,"[146][198]ilename: "
  77. 790 sysmt+51,3,4,25,"@0:export.txt"
  78. 795 ifw$=""thenreturn
  79. 800 a$=w$+",s,w":sysbox,1,38,21,23,32,0:sysat,2,22,"[146]device: "
  80. 805 sysmt+51,3,4,25,str$(dv):ed=val(w$):ifed<8ored>29then800
  81. 810 close2:open2,ed,2:close2:ifstthenreturn
  82. 815 open2,ed,7,a$
  83. 820 print#2,chr$(13)
  84. 825 print#2,"[198]rom the book of "ww$
  85. 830 print#2,"-----------------"left$("--------------------",len(ww$))
  86. 835 c=0:fori=atoen-1:sysmt+33,i:iff%thenprint#2,w$:c=c+1
  87. 840 next:close2
  88. 845 sysbox,1,38,21,23,32,0
  89. 850 sysce,22,str$(c)+" lines exported":poke198,0:wait198,15:poke198,0:return
  90. 855 sysbox,1,38,21,23,32,0:sysat,2,22,"[146][211]earch for: "
  91. 860 sysmt+51,3,4,25,"":se$=w$:ifw$=""thenreturn
  92. 865 sysbox,1,38,21,23,32,0
  93. 870 f%=-1:ifse$<>""thensysmt+210,se$,ss,en-1
  94. 875 sp=f%:ifsp<0thensysce,22,"[206]ot found":poke198,0:wait198,15:poke198,0:return
  95. 880 gosub2000:sysmt+42,1,38,1,18,1,15,15,7,sp,en-1,1:ss=sp+1:goto700
  96. 885 f$="bookmark prg":gosub2300:return
  97. 890 stop
  98. 1000 sysmt+39,"$:"+f$,d%(dx),208*256:sysmt+48,0:close15:open15,d%(dx),15
  99. 1010 input#15,a$,e$:close15:return
  100. 2000 sysbox,0,39,0,24,160,15:sysframe,0,39,0,24,14:sysbox,1,38,20,23,160,14
  101. 2005 sysbox,1,38,1,1,160,7:print"[158]";:sysmt+78,1,"[212]he [194]ook of "+ww$
  102. 2010 sysat,2,20,"[154][195][210][211][210] [212]hrough text   +/- to page"
  103. 2020 ifww$<>"[196]ocumentation"thensysat,2,21,"[210][197][212][213][210][206] - mark text for export/print
  104. 2030 [158]at,2,22,"left$(NULL)(NULL)val - top  len(NULL)(NULL) - peekottom asc1 - valxit"
  105. 2040 [158]at,2,23,"(NULL) - (NULL)ew search  s - lenontinue search
  106. 2099 return
  107. 2100 dx=dx+1:ifd%(dx)=0thendx=0
  108. 2110 t=t+1:return
  109. 2200 syssh,0,39,0,24:sysmt+48,0:sysmt+15,e$,dv,28000:sysmt+36,28000:en=f%
  110. 2205 ife$="error bnf"thensysmt+30,"   [201] couldn't find "+chr$(34)+f$+chr$(34),1,1
  111. 2210 sysbox,0,39,1,19,160,7:sysframe,0,39,0,20,2
  112. 2220 sysmt+42,1,38,1,19,1,7,1,1,0,en-1,0:return
  113. 2300 t=0
  114. 2310 gosub1000:ifval(a$)orf%<0thenift<ndthengosub2100:goto2310
  115. 2320 ifval(a$)=0andf%>-1then40000
  116. 2330 e$="error bnf":goto2200
  117. 3000 sysmt+27,bn:sysmt+33,bo%:return
  118. 5000 sysmt,0,39,0,24,95,095,15,12
  119. 5005 syssh,0,37,16,21:sysfr,1,38,16,20,15:sysbo,2,37,17,19,160,1
  120. 5010 print"";:sysce,18,a$:return
  121. 5020 gosub5000:poke198,0:wait198,15:return
  122. 6000 sysmt+15,"contents",dv,32768:sysmt+36,32768:en=f%
  123. 6020 ww$="[195]ontents":gosub2000:sysmt+42,1,38,3,18,1,15,15,7,0,en-1,1:goto100
  124. 10000 _"@0:compleat ot"
  125. 10010 stop
  126. 20000 sysmt+15,"t.about cot",dv,32768:sysmt+36,32768:en=f%
  127. 20010 ww$="[196]ocumentation":gosub2000:sysmt+42,1,38,3,18,1,15,15,7,0,en-1,1:goto100
  128. 40000 q$=chr$(34):poke646,peek(53281):print"[147]":poke53272,23
  129. 40100 print"[147]l[207]"q$f$q$","d%(dx)
  130. 40110 print"p[207]53272,23:run:":poke631,13:poke632,13:poke198,2:end
  131.